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the author and the Forth Interest Group. 
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year {$24.00 foreign air). For membership, ctiange of 
address and/or to submit material, the address is: 

Forth Interest Group 

P.O. Box 11 05 
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HISTORICAL PERSPECTIVE 



FORTH w^as created by Mr. Charles H. Moore m 
1969 at the National Radio Astronomy Observatory, 
Charlottesville, VA. It was created out of dissatisfaction 
with available programming tools, especially for obser- 
vatory automation. 

Mr Moore and several associates formed FORTH, 
Inc. in 1 973 for the purpose of licensing and support of 
the FORTH Operating System and Programming Lan- 
guage, and to supply application programming to meet 
customers' unique requirements. 

The Forth Interest Group is centered in Northern 
California, Our membership is over 2,400 worldwide, it 
was formed In 1 978 by FORTH programmers to encour- 
age use of the language by the Interchange of ideas 
through seminars and publications. 



The last edition oi FORTH DIMENSIONS was the 
beginning of many changes in editorial policy and 
format. All these changes are designed to make FORTH 
DIMENSIONS a practical and useful communications 
tool. 

This practical approach continues. In this edition 
you will find a number of utility programs that will make 
the task of implementing practical applications In 
FORTH easier and faster. All of these utilities tiave 
been contributed by FIG members who have found 
them to be valuable tools. The editorial staff thanks 
these contributors and would like to encourage all FIG 
members to share their ideas and experience. 

If you have a programming idea or tool that you have 
found useful, please send it to: 

Editor 

FORTH DIMENSIONS 

P.O. Box 1 1 05 

San Carlos, CA 94070 
YOU DON'T HAVE TO BE A WRlTER-the editorial 
staff will provide whatever copywriting is necessary to 
make your ideas publishable. 

On the aesthetic side, you will find this edition con- 
tains several photographs and art illustrations. This is 
a FORTH DIMENSIONS' first and you can expect to see 
more in tfie future. Photographs and art illustrations 
will be chosen and published on the basis of their 
educational and human interest value. 

This issue also introduces the character HEX who 
will be FORTH DIMENSIONS' official comic strip You 
will find the HEX comic strip in future editions of 
FORTH DIMENSIONS. HEX'S adventures v^fill be a com- 
bination of humor and education. Ideas for HEX comic 
Strips are welcome. 

C. J. Street 
Editor 

PUBLISHER'S COLUMN 

Renewals and new members are coming In at a fast 
pace. We expect to climlj to 3,000 members In the next 
few months and to 5,000 within a year. 

Both the Computer Faire In San Francisco and the 
Computer Festival in Trenton, New Jersey were huge 

successes We'll be in both again next year. {I'd like to 
know of any other shows where you thinly FIG should 
exhibit.) 

Good material Is coming in for FORTH 
DIMENSIONS. Keep it coming and send in your 

comments. 

Roy Martens 
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LETTERS 

Dear Fig: 

My company is developing business 

systems using FORTH and we would be 
interesr.ed in communicating with local 
FIGGIES as well as offering our input to 
FST, FORML, FIG and other applicable "F" 
acronyms since it is obviously in oar 
interest to promote the spread and 
acceptance of FORTH. We're also confirmed 
FORTH fanatics. 

David B. Moens 

BUSINESS SYSTEMS SOFTWARE, INC. 

27 East Kings Highway 
Haddonfield, MJ 08033 
(609) 429-0229 

You are our kind of fanatic and we're 
happy to put the word out for you Dave! — 
ed. 



Dear Fig; 

Rc: "Born-again programmer" and "Born- 
again FIGGER" in FORTH DIMENSIONS II/5. 

My interest in FORTH as a prograrmning 
language does not envolve becoming mired 
down in the morass of a religion. It 
would be best to stay on rational grounds 
in the development of FORTH and leave 
religion to those who are unable to thinfc 
without faith. 

I will not take part in a religious 
group. Therefore I will not be renewing 
my membership. 

Larry R. Shultis 
P.O. Box 218 
Fontana, WI 53125 

Just goes to show you that there is more 
than one type of fanatic! Reep the faith, 
Larry, (OOPS, sorry about that! I meant! 
Don't worry, Larry,) FIG is not envolving 
(your spelling) into a religious group. — 
ed. 



Dear Fig; 

Thank you for the prompt and efficient 
service I have received. I realize that 
you can't have much time left to look 
after the rest of the world, but without 
your interest it may never have reached 
these shores. Spread the good WORD. 

J. HuEtley 

UNIVERSITY OF AUCKLAND 
19 Duncan Avenue 
Auckland 8 , 
New Zealand 

You are very welcome! — ed. 

Editor's note; 

At the WEST COAST COMPUTER FAIRE in 
California two versions of a FORTH bumper 
strip were circulated: 

7F0RTH IF HONK THEN 

or alternately 

: LOVE-FORTH 

IF HONK THEN ; 

Just thought you mght like to know. — 
ed. 



Dear Fig: 

TGIF is very interested in swapping 
listings with other Fig-FORTH groups. Our 
current listings are 2 Decompilers; Full 
screen editor; CASE statements for 8080, 
Z80 and 6502; 6502 Assembler. 

TGIF 

FORTH INTEREST GROUP — TULSA 

Box 1133 

Tulsa, OK 74103 

How about sending them in to FORTH 
DIMENSIONS? — ed. 
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Dear Fig: 

I was lucky enough to attend one day of 

the recent West Coast Computer Fairs and 
to meet some of ttie mentors of FIG. I had 

numerous questions and enjoyed talking to 
Bill Rag 8 dale and others about them. (By 
the way^ for those of you who couldn* t 
make it to the Faire, the FIG booth was 
one of the most crowded. People were 
standing there like no where else even as 
the 5:00 closing approached. We all owe a 
thanks to the dedicated folks for their 
time and effort in this endeavor, 
promoting and spreading the word of FORTH 
and FIG.) 

One of my questions to Bill was "How can 
we remote members contribute to FIG" in 
ways other than articles for FORTH 
DIMENSIONS. I got a number of project 
ideas, for one of fAiich I need the help of 
the whole membership. So PLEilSE: NOW 
imRE THIS! 

I propose to assemble a book of utility 
program packages for publication by FIG. 
I have a list of functions t^ich I think 
should be included. This covers such 
things as editors (both the current FIG 
line oriented editor and a video screen 
type editor), string processing, data 
structures, extended math (double prec- 
ision as an example), math functions (sin, 
log, etc.), matrix operations, and float- 
ing point routines. No doubt there are 
others to be considered and I solicit your 
suggestions . 

The plan I propose to compile and 
publish such a document is as follows: 

1, Members are asked to send their 
proposals for implementing utility 
packages to me at the above address 
(or through FIG) . These proposals 
should consist of well documented 
(lots of comments) fig-FORTH source 
code accompanied by complete instruc- 
tions for use, any known operating 
limitations, and a brief technical 
description or reference if appro- 
priate. The programs should be as 
transportable as practicable; if 
system unique routines are necessary, 



enough information should be provided 
so as to allow them to be adapted to 
a different machine. 

2. I will compile a draft of the pro- 
posed publication and submit it to a 
technical review committee for review 
and appropriate testing. This com- 
mittee of FIG members (I am looking 
for volunteers) will scrutinize the 
proposals (and alternatives if appro- 
priate), test them on a running FORTH 
system, and make recommendations. 

3. I will then compile the final version 
and submit it to FIG for publication. 

I have set some timelines for com- 
piling this compendium such that it 
can be published by next year's 
Computer Faire, Material should be 
sent in no later then 1 September 
1981 (please send them early and give 
me a chance to get ahead). I will 
distribute the draft for review and 
testing by 15 October 1981. Finally 
I will begin compiling the final 
version by 1 January 1982 and have it 
ready for publication by 1 February 
1982. 

This may seem like a long time 
abuilding, but I want to provid-e 

ample opportunity for the contribu- 
tors to develop their ideas fully and 
conduct a fair amount of testing 
themselves before submission, T also 
want to provide a good review by the 
committee to provide 'chv. highest 
quality document for FIG. It will be 
worth it in the long run. Your con- 
tributions will be sincerely appre- 
ciated, and though the publication, 
as are all of FIG's, will be In the 
public domain, credit will be given 
to the authors and contributors. So 
if nothing else, this is a chance to 
get your name in print, in an inter- 
national pub 1. Lcation. 

Sincerely, 

George 0. Young III 

617 Mark NE 

Albuquerque, NM 87123 
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This is a great project. Our goals 

continue to be to decentralize FIG 
activities, and George's project of a 
published "Goodias Package" will be 
helpful to all. Contributors should send 
a brief description to George and then 
prepare the full document. This will 
allow co-ordination of similar material. 
— ed. 




Spreading the fig-FORTH at the West Coast 
Coin>uter Faire, April, 1981. 
Top: (1-r) Michel Mannoni (FORTH vendor), 
Dave Boulton and Martin Schaaf (Answering 
the question: What's FORTH? 10,000 times) 
Bottom: (1-r) Roy Martens (FTi Publisher), 
Anne & Bill Ragsdale (FIG prime movers). 
Order your T-shirt, like Bill's! 



ANNOUNCEMENTS 

FORML CONFERENCE CALL FOR PAPERS 

Papers are requested for the three day 
technical workshop to be held next 
November 25th to 27th at the Asilomar 
Conference Grounds in Pacific Grove, 
California (Monterey Peninsula). 

Although registration for this con- 
ference is not yet open, attendance will 
be limited to 60 persons. Authors will be 
accepted before listeners, so if you want 
to attend, the only sure way is to write a 
paper. Please note: abstracts or propo- 
sals for papers or discussions must be 
submitted no later than September 1, 1981 
for inclusion in the conference and its 
procctidings ; completed papers by Sep- 
tember 15, 1981. 

The purpose of this workshop is to dis- 
cuss advanced technical topics related to 
FORTH implementation, language and its 
applications. Potential authors should 
write for an author's packet for detailed 
instructions. Send all correspondence 
regarding the conference or papers to: 

FOKML CONFERENCE 

P.O. Box 51351 

Palo Alto, CA 94303 



FORTH WORKSHOPS 

Beginners and advanced workshops in 
FORTH are being jointly sponsored by the 
College of Notre Dame and Inner Access 
Corporation both of Belmont, CA. 

Beginners workshops start June 23 and 
advanced workshops start July 14. Classes 
meet every Tuesday and Thursday evening 
from 7:00 to 9:00 P.M. Registration is 
$135 for 3 weeks (12 hours). 

For more information and registration 
contact: 

College of Notre Dame (415) 593-1601 
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CONTINUING DIALOG ON 
FORTH-79 STANDARD 

Dear Bill: 

We recently obtained a copy of the 
FORTH- 70 Standard from FIG and are 
attempting to align our version of FORTH 
with it. The docvunent is generally well 
done and in isos t ca se s cl ear ly and con- 
cisely expressed. However, there are 
about a half dozen or so definitions that 
seem to us somewhat ambiguous. 

I am writing to you in the hopes that 
you can clarify, the word definitions in 
question; or, that you can refer us to 
scxneone who can. I am also interested in 
knowing whether the FIG model has been 
aligned yet^ if not, when it will be. 

My list of questions is enclosed and I 
would appreciate anything you can do to 
assist us in their resolution. 

Cordially, 

Robert D. Villwock 
MICROSYSTEMS, INC. 
2500 E. Foothill Blvd., #102 
Pasadena, CA 91107 

OPEN QUESTIONS 
F08TH-79 Standard 

1. For the words / and does the 
terminology "rounded toward zero" 
essentially mean truncated? If not, 
precisely what does it mean? 

2. The word SGIN is now apparently 
defined to be used "outside" of the 

<^#, #^ operators. What is the pre- 
cise definition of where the minus 
sign character is to be stored? Why 
was this word changed from its former 
function between \^ and #^ ? 

3. The word ';' is defined as a non- 
precedence word . Is this a typo or 
is it intentional? If intentional, 
could you explain the rationale? It 

seems that the number of occasions 
for which "colon" needs to be com- 



piled are few and could easily be 
handled by using the [compile] 
operator. GS the other hand, syntax 
errors and typos often result in 
mistaken attempts to compile ' ; ' 
fAiich, when it's an inmediate word, 
can be flagged by the compiler. 

4. The word CODE is defined as using the 
form: 

CODE ^name^ ...END-CODE 

However, the word ;CODE says nothing 
about the corresponding form. Our 

version of FORTH rquires that code 
level action routines defined by 
;CODE also be terminated by the word 
END-CODE. Is this compatible with 
FORTH-79? 

5. The words FIND, etc., as 
defined in the Standard, indicated a 

search of CONTEXT and FORTH only. Is 
it considered an incompatibility if 
the CURRENT vocabulary is also 
searched Cif different)? The defini- 
tion of VOCABULARY is not clear 
regarding the possibility of "sub- 
vocabularies" such as ABC chained to 
3CYZ chained to FORTH. If this is 
allowed, and, ABC is the CONTEXT 
vocabulary, is not ABC, XYZ, and 
FORTH searched? 

6. What is the mnemonic significance of 
the C words such as C! , GM}VE, 
etc . ? Surely it doesn' t stand for 
"cell," does it? The term "cell" is 
defined on page 3 of the Standard to 
be a 16-bit memory location. The word 
MOVE is defined on page 26 to trans- 
fer 16-bit words ("cells"), while the 
word CMOVE on page 20 is defined to 
move bytes (not "cells"). If the C 
does stand for "cell" what is the 
rationale? Why was the former stan- 
dard's B {for byte) replaced by the 
mysterious C? 

7. I note that in the reference section 

of the Standard, the word DPL which 
formerly used to handle both input 
and output "point" situations now 

strongly emphasizes that input con- 
versations should not affect its 
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value. What is the reason for this 

restriction? How likely is \t that 
this may become part of the Standard? 

8. The definition for CREATE is not 
clear. Does the second sentence 
"When ^name^ is subsequently 
executed, the address of the first 
byte of <(iiarae^ 's parameter field is 
left on the stack" mean that the word 
CREATE alone is to fiint:tion this way 
or only when followed by jCODE or 
DOBS)> ? In other words, is it 
intended that CREATE work as in the 
FIG model or has its definition 
changed? Taken literally, FORTH-79 
says that CREATE will generate an 
unsmudged header with the CFA point- 
ing to the run time procedure for 
variables. Is this what is intended? 

COMMENTARY FROM THE FORTH DOCTOR 

1. Some computers apparently (by Stan- 
dard Team comment) round quotients 
and remainders to smaller magnitude 
(more negative). Trucation of nega- 
tive quotients would do this. If a 
correct representation is not possi- 
ble, the result should be nearer 
zero. Dave Boulton is more know- 
ledgeable on this point. 

2. " Sign is to be used within and 
# y , The user chooses where to store 
the sign. Notice that no word gener- 
ates the saving of the sign. In fig- 
FORTH the only difference is the ROT 
would be explicitly done just before 
SIGN, rather than in, SIGN. 

3. FIG and the Europeans make : an imme- 
diate word for error control. Other 
users , and FORTH . Inc . reject this 
level of error control — too bad! We 
need a technical paper presenting the 
trade-offs (code needed and compila- 
tion slowdown). Conversation at a 
team meeting is Insufficient to 
change opinions developed over ten 
years. 

4. These topics were barely touched on 
by the Team as CODE definitions are 
not portable. ;CODE probably should 



terminate in END-CODE. This is an 
unresolved area. 

5. The standard wording was painstaking- 
ly done regarding vocabularies. This 
is the most divergent topic among 
users. all known methods can comply 
with the Standard, but it does less 
than all systems. The rationale is 
that you build CURRENT but you exe- 
cute only from CONTEXT (and FORTH). 
No chaining is recognized, beyond 
context leading to FORTH, This may 
be physical links or logical (within 
FIND). Again, position papers are 
essential to get a common, more 
advanced, construct. 

6. Charles Moore has used C for ten 
years as a character (byte) prefix. 
Ignore (if you can) that a character 
is defined as 7 bits in the Stan- 
dard. This was a hotly disputed 
point with FIG and the Europeans for 
"B"yte and FORTH, Inc. and a couple 
of others for "C". Kitt Peak was 
adamant before the meeting for "B" 
and other uniformity iraprovranents . 
Their representatives made no defense 
of the issue. Historical precedence 
wins this one* 

7. Reference Section is just left- 
overs. Only one vote of any team 
member was sufficient to maintain a 
Reference word on the list. The 
Standard attempts to minimize system 
variables . Increased usage of 
special variables is unlikely. 
Things like DPS are delegated to 
applications. 

8. The definition of CREATE is quite 
clear. You have stated it and then 
correctly paraphrased it. Other 
defining words may be used before 

DOES y which help build a parameter 
field, DOES rewrites the code field 
to its own code. 

: CPU CONSTANT DOES> ; 

is equivalent to 

1 CPU CREATE , DOES> ; 
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TECHNICAL NOTES, BUGS & FIXES Modificatioas to the fig-FORTH boot-up 

literals; 



Dear Fig: 

I have recently brought up FORTH on a 

6800 system and find it to be a very easy 
and powerful system for microcomputers. 

I have a mini-computer with a cross- 
assembler on it which I used to assemble 
the 80urc« after keying it in. Naturally, 
as soon as I got it working I wanted to 
change it. T feel that the EXPECT routine 
and backspace handling could be improved 
significantly by incorporation of the en- 
closed recommendations . 

I also experimented with the GLOSSARY 
routine submitted by D.H. Borden in FORTH 
DIMENSIONS, Volume 1, No. 4. I modified 
it to handle the variable length name 
field and changed the format slightly. 

Keep up the good work. 

Toby L. Kraft 
San Diego 



1. Backspace Character 

Character to emit in response to a 
backspace entry. X'08' C control-H ) 
is character FORTH responds to for 
backspace function. Character to 
emit is terminal dependent and should 
be defined in the user table. 

This also allows use of a printable 
character ( e.g. C'\' ) to emit for 
backspace for use on printing 
terminals . 

2. Form Feed Character 

Character to emit to cause terminal 
( or printer ) to advance to top of 
form. This is also device dependent 
and should be in user table. 

3. Form Feed Delay 

Number of null characters to emit 
after issuing a form feed charac-* 
ter. This is similar to CR/LF delay 
fAiich is already provided. 

Recommendation : 



001 i eifECI npDJFIEI) FOR USES DEFtPCB BMUBPIWE CUM 1 
OOZ c 2bFEBSL toat L KRAFT i 

003 : EXPECT 

004 DVEH . OVER I «DD CCIUHT TD MWnnS nK LOOT LtniT 1 

005 DO 

OOi KFV ntP t OET CHAR fMD SAVZ C<W 1 

DOT de: *da;C1n t m t OET SY^TEn PAr.KSPME 'WO CHECH FOR IT ) 

ooa 9F 

00* DROP UUP I . I LOSE CUM . CHEOl iUFFEIl »E01N > 

010 HUP R> 2 - « »< ( MUUST lUFFG* raiHTER M>l>l<apllI*T£LV 

Otl IF 07 BJX UerOF CC EWIF I lEU. ■ lUIIHIHS , >B DTtOniieC I 

012 ELSE 

013 OD I «ECK FOR CMUtlAOE RETURH ) 
OH tF 

019 LEAVE DROP 9L t PREPARE TO t-CAVE > 

D16 ELGE DUP CHDIF 

017 I C> I 1. < C STORE CHARACtrR IN BUF Ffp ) 

010 EHDIF 

019 Enn t ECHO CHAR TO TERnlHAL ] 

030 LOOP 

031 DROP 
022 I 



Add variable 'BSTOF' to user table. 

X'BBFF' - two characters of data 
FF - form feed character 

( X'OC initial value ) 
BE - back space character 

( X'08' initial value ) 

Add word 'BSTOF' to vocabulary to access 
this variable in user table. C Similar 
to 'BASE' ) 



SLOSOAItV 

001 ( OLOaSAItT SEHERATOR ROUTINES > 

Ota DCCIKM. 

e03 VARIABLE CHD 

0O4 TOP CR CR 33 SPACES " GLOSSARY " CR CR ( OSERATE PACE ICAPIH6 I 
DOS . - LEN UORD- IS SPACES * HFA PFA" CR CR ' 
OOA t^J 

007 OLDSSABV lOF EOKTEIT t C CUD ■ 
OOG BEOIM CnO C IP 
Om CUD f c* 3F AND 

010 DEC [HAL DLfP 3 R SPACE 

011 F SWAP - CHD t ID SPACES 
OlS CtV t HEX 6 R SPACE 

013 CHD • 1 TRA^fERSE WP- 
OlA 3 A . R SPACE Cn 
019 I* « CW ^ 
OlA TreRKIMAL IF OUIT EMBIF 
017 ELSE auIT THEN ASAtM . 



Modify definition of current user varia- 
ble 'DELAY' to include formfeed delay in 
upper byte. 

Add word 'DELAY' to vocabulary to access 
this variable in user table. 

Modify startup parameters and cold start 
accordingly. 
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Modify EXPECT to use user defined 
bacl-;;;pac(' cliarac tcr and to explicitly 
generate bell code { X'07'). Currently, 
EXPECT tests for the beginning of the 
buffer and subtracts the boolean flag 
result from X'08' to generate the char- 
acter to emit in response to a back- 
space. 

Toby L. Kraft 
7822 Convoy Court 
San Diego, CA 92111 
(714) 268-3390 

This really needs expansion and gener- 
ality* How about terminals that need an 
"escape sequence" to clear screen, i.e. 
fona feed? Toby, HEX should be used 
insteat of X' .— ed. 



Dear Fig: 

I wish to convey a concept which has 
greatly increased the clarity of my FORTH 
coding. It has to do with in-line docu- 
mentation of the contents of the stack 
(comments within parathesis). 

Unfortunately, none of the existing 
techniques (space, hyphens, brackets, or 
ordinal suffix) provide the brevity and 
clarity that one becomes accustomed to 
with FORTS . The technique which I have 
devised provides both. It revolves around 
the backslash character '\', which I refer 
to as 'under' and the double hyphen ' — 
uhi&h I refer to as 'leaves'. Using this 
terminology, the following comment; 

( addre8s\couat — ) 

is read "address under count leaves 
nothing," and 

( N1\N2 — N3 ) 

is read "Numberl under Number2 leaves 
Numbers." 



The 'under' symbol imparts a clear 
verbal and graphic representation of the 
ordering of the stack contents, and 
provides an elegant solution to a major 

problerfr pncountered wher. transporting 
FORTH algorithms and source code. 

Don CoTburn 

Creative Solutions, Inc. 
4801 Randolph Road 
Rockville, MD 20852 

Dear Fig: 

Some time ago I bought your Installation 
Manual and the 6502 Assembly Listing. I 
have been studying both for quite a while, 
and am also a charter member of the 
Potomac FORTH Interest Croup (PFIG: Joel 
Shprentz and Paul VanDerEijk). 

I have MHS FORTH (cassette) for the 
TRS80 up, and have just bought GEOTEC 
FLEX-FORTH for my KIM, although I don't 
have my 16K ram card installed in RIM 
yet. I do like FORTH!!! The PFIG has 
been fairly inac tive for some time due to 
lack of a meeting place, but Joel Shprentz 
has been conducting some Intermediate 
FORTH classes ($30 for six lessons) which 
are ongoing, and very interesting - we are 
well into < BUILDS/ DOES and will then go 
on to disking, etc. Ask Joel for details. 

I'm still planning to bring up FORTH on 
the KIM from my own hand-assembled ver- 
sion, just to satisfy my own curiousity 
about what makes FORTH tick. I do think 
I'm finally beginning to understand how 
everything fits together. 

In this vein, I have a few comments to 
pass on from an (advancing) novice FORTH 
enthusiast . The first two comments regard 
the above referenced Installation Manual 
and 6502 Assembly Listing. The last two 
are ideas of my own which I offer for what 
they are worth. 

1. There is a disparity in the Instal- 
lation Manual version of the 6502 
memory map regarding the placement of 
the Disk buffer and User Area. 
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Indeed, there is disparity in the 

6502 Assembly Listing between what is 
done near the front and what is actu- 
ally implemented (per the installa- 
tion Manual). The Installation 
Manual puts the Bisk buffer at the 
top of RAM with the User area just 
below. Line 0051 of the assembly 
manual says User area is top 128 
bytes, with disk buffer next (line 
0052). CREATE assumes just the 
oppposite in both the Installation 
Manual and Assembly Listing. {Editor 

— correct on all all points. The 
author was inconsistent.) 

2. In screen 49 of the Installation 
Manual, I see no need whatsoever for 
a dedicated word such as ID. to move 
the word name to Pad and then type it 
out! The first 4 words are not 
needed , and neither are the words 
f o 1 1 owing " - " (PAD SWAP m>VZ 
PAD). Just a waste of time and space 
to bring the name to PAD and then 
type it out! (Editor — this is not 
80. If you have WIDTH set to less 
than 31, ID. is required.) 

3. I would suggest a word C Q ) that 
might be inserted into any type of 
loop (DO/LOOP or BEGIN/ AGAIN) to 
allow a timely exit when things go 
awry (as they do with Novices!). 
It's very simple - : Q ?TERMINAL IF 
QUIT BNDIF ; MMS FORTH has this 
embedded into the code of " : " , but 
I think that's overkill. But it sure 
is nice to undo errors put into 
loops . (Editor — th is is terrible 
style. LEAVE is the correct way for 
a controlled termination. ) 

4. This has specifically to do with the 
Jump Indirect of the 6502 as used in 
both the Installation Manual and the 
assembly listing. Having used the 
6502 for better than 4 years, I have 
yet to use the JMP indirect after 
finding out about its shortcoming of 
wrapping around within a page i£ low 
byte of address is $FF. I pretend 
this opcode does not exist, (Editor 

— CREATE on 6502 systems correctly 



places code field, ^ymore coomenta 
should be directed to Chuck Peddle, 
designer of 6502.) 

Keep up the good work. 

Edward B. (Ted) Beach 
5112 Williamsburg Blvd. 
Arlington, VA 22207 



CORRECTION ON SEARCH 

by John James 
(Vol. II #6) 

When you are debugging or modifying a 
program, it is often important to search 
the «^ole program text, or a range of it, 

for a given string (e.g. an operation 
name). The 'SEARCH' operation given below 
does this. 

To use 'SEARCH' , you need to have the 
FIG editor running already. This is 
because 'SEARCH' uses some of the editor 
operations in its own definition. The 
'SEARCH' source code fits easily into a 
single screen; it is so short because it 
uses the already-defined editing func- 
tions. Incidently, the FIG editor is 
documented and listed in the back of FIG's 
Installation Manual. 

Use the editor to store the source code 

of 'SEARCH' onto a screen. Then when you 
need to search, load the screen. (Of 
course if you are using a proprietary 
version of FORTH, it may have an editor 
and search function built in and auto- 
matically available when needed. This 
article-ette is mainly for FORTH users 
whose systems are the ten-dollar type-it- 
ln*-yourself variety). 

Here is an example of using 'SEARCH'. 
We are searching for the string 'COUNT' in 
screens 39-41; the source code of 'SEARCH' 
is on screen 40. The screen and line 
numbers are shown for each hit. Inci- 
dently, the search string may contain 
blanks. Just type the first screen 
number, the last screen number, 'SEARCH' 
followed by one blank and the target text 
string. Conclude the line with return. 
The routine will scan over the range of 
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screeas doing a text match for the target 
string. All matches will be listed with 
the line number and screen number. 

Happy SKAHCHing! 



39 41 EEABCHOCUNF 
00 VARIMffE aXINr_ER 

1 axjOTjER +! ooutraR (§ 

1 OOUSEER +! aXfNr_ER @ 

56 >rF OOUOTJK ! 

12 EMir 01 TEXT OOUNT ER! 



2 40 
4 iiO 

4 «) 

5 AO 
8 « 



OK 



UFR) 



I SEARCH, OVER RAHGE OF SCREENS 

1 MCI HAL 

2 it VAB3ASLE COUNIER 

3 I iUNP ( THf LINE HUHSER AND HANDLE PMIHG) 

4 t CDUNTEft t ! CQUHTER a 

5 Si > If COUNTEF; ! 

i CR ER 15 rtESSAGE 12 ErtlT THEN ; 

? : SEARCH ( FRQH, TO — lARCET STIIIM6 > 
a 12 EHIT 01 TEXT COUNTED ! 
f It EHAP go FWTH I SCR i 
U EDHDIt \Vf 

11 BEGIN RIHE IF H SCR ? BUHP THEN 
1? t<l23 R* « ^ UNTIL 

13 LOOP ; CR SEARCH IS LOAIlEll " ;S 

M 

IS TYPICAL USE TQ LOCATE 'Kn-UQSD'i 31 44 SEARCH KET-UORB 



8 : .S ( prints stack contends, top last; 

stack unchanged ) 

9 DEPTH W S>@ 2~ SO @ 2- DO I ? 
-2 +IJCICP 

10 nSE, E^>ty " THEN ; 

11 

12 ( Ti*iich vocabulary is being refepenced? ) 

13 ; .VOC (prints CXmEXT VDCAHJI/iRy lesx! ) 

14 OOtrCEKI @ 4 - NPA ID. ; 
15 

SCR # 82 

( Tools: nunber printiiig fi.g-FD83H 1.x ) 
1 
2 



PROGRAMMING AIDS & UTILITIES 



3 
4 

5 
6 

7 
8 

9 
10 
U 
12 
13 
14 
15 
OK 



; .BASE { — ) (prints current radix in 
decimal ) 
BASE @ DUP EGCIML . BASE ! ; 

( creaf.o base- specific stack-print operators ) 
: B,ASED. (<BUmB: nesiBase — ) 
( TOES)>t n — ) 
5L*TLDS>, 

a)ES>@ B^ @ BASE ! SWAP . 

! ; 

16 BASED. H. C print top-of-stack in hex ) 
8 BASED, 0. ( print in octal ) 
2 BASED. B. ( print in binary ) 



Kim Harris 

FORTHRIGHT ENTERPRISES 
P.O. Box 50911 
Palo Alto, CA 94303 

In true ideal PORTH progranming style 
the definitions contained within the 
screens clearly designates their tise. 

81 UST 82 LEST 
SCR #81 

C Software Developnent tools fi-g-KSOH 1.x ) 

1 ( for mSDing ) 

2 : m/ffl C scr# — ) HJP . mffl) ; 

3 : ( l9tScreer# lastScreen^ — ) 

( uaADs rar^ of screens ) 

4 1+ SWAP DO I LMD ICOP ; 
5 

6 ( non-destructive stack print ) 

7 : DEPTK ( — #StackCellsUsed ) ^ 

SO @ SHSP - 2/ ; 



The following utility indexes 10 screens 
at a time and is an excellent aid in 

searching. 

HEX ; +liqDEX U3 DO 

DUP 10+ SWAP OVER INDEX 

KEY ?ESC IF LEAVE THEN LOOP; 



The following utility was contributed by 
Sam Bassett and is an excellent program 
development aid that shows you what the 
current base is 

: BASE? 
BASE @ 
DUP 

DECIMAL 

• 

BASE ! 
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Here is an adaptation of George Shaw's 

VIEW to use the word WHERE, which on my 

system invokes a full screeen editor that 

highlights the word pointed to by a block 

number and displacement. It certainly 
helps pick out a word in dense code. 



SCIt#66 



C 'VIEW' USIMG 'WHERE' 4/15/81 

1 ( msiED ma FCKm EtoesiCHS vn, 

IfiR 6, F 162 ) 

2 FGfOH EEFINrnONS 

3 : >IX)C< BIK @ , IN g » ; ( StSlE EIK m 

mmji^xss y 

4 : (msmr >i]Oc<[aMpiLEi axtstm j 

( BEBUILD 1HE WBDS ) 

5 : VAKEAEIE >n]C<[O0MPII£] VAESmZ ; 

( THKpBimD ims. ) 

6 : : >130C<ia*IPlLE] : j 

7 3<BUILDS >DOC<[OCMPIIE] JSJEXG 



8 
9 
10 

11 
12 
13 
14 
15 



CRBA3E 
VIEW lOCMPHE] 

IHE minm. ) 

2 - @ 

amp 4 - @ 



)DOC< CaXPII£] USSR 



( GET miS) GF 

( COTY THE AUXtESS ) 

C GET THE DISTACEMENT ) 
( GET THE BDOCXNUiBER ) 
( 00 SKN & HIGSmaiQ! ) 



HELP WANTED 

Senior Level FORTH Programners 

Friends- Amis 

505 Beach Street 

San Francisco, CA 94133 

Call: Tom Buckholtz 

(415) 928-2800 



Intermediate & Senior Level FORTH 
Frogranmiers for Data Entry Applications 

MSI Data 

340 Fischer Avenue 
Costa Mesa, CA 92627 

Call; Joan Raitistedt 
(714) 549-6125 



PRODUCT REVIEW 



by C.H. Ting, Feb. 26, 1981 

Timin-FORTH, from Mitchel K. Timin Engi- 
neering Co., 9575 Genesee Ave., Suite E2, 
San Diego, CA 92121, (714) 455-9008. 
8" single density diskette, $95.00 



I was invited by Dr. Timin to compare 
his CP/M FORTH CFD II/ 3, p. 56) with the 
Z-80 FORTH by Ray Duncan, Laboratory 
Microsystems (FD II/ 3, p. 54j FD II/5, 
p, 145) I ran the two FORTH systems on 
his home made Z-80 computer (S-100 bus, 
6 MHz) The results of a few bench marks 
were: 



Program 

: I/XffTEST 7FEF DO LOOP ; 



Tiiam ZSO 
2.3 sec 2.9 sec 



; -TSSS 7EFF DO I DO? - IBDP UDOP; 5.9 7.4 
: *IESr 7FFF DO I DOP * IMP LOOP ; 44.0 54.9 
: /TEST TPEF DO 7EEF I / DROP IXXJP ; 74.3 88.6 



! HI^ 120 61 DO I cum loop ; 



34.3 



97 liaSD ( four tModrad ei^ty 9's ) 17.9 
S 



81.8 



18.6 



I was Surprised that Timin-FORTH which 
is 8080 fig-FORTH ran faster than Z-80 
FORTH which uses the extra Z-80 registers 
for IP and W. Dr. Timin' s opinion was 
that the Z-80 instructions using these 
extra registers are slower then the 
simpler 8080 instructions. The word WIPE 
tests disc access time. Timin-FORTH 
accesses the disc by 1024 byte blocks, and 
it is twice as fast as Z-80 FORTH, which 
reads/writes by 128 byte sectors, as in 
the fig-FORTH model. 

The dictionary in Timin-FORTH is about 
11 Kbytes, including an editor and an 
assembler. The editor is the same as that 
of the fig-FORTH model. The assembler has 
all the Z-80 instructions. An interesting 
word SAVE allows the whole system in- 
cluding application words to be preserved 
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as r, Ci'/M file whLch can be loaded back 
for execution. It maintains eight 1 Kbyte 
disc buffers. 

The documentation supplied with the 
system is a 68 page booklet 'USER'S MANUAL 
& TUTORIAL' . It is a very well done 
manual introducing users to the systems 
and to the FORTH language. However, 
source listings are not provided. 

My overall impresssion was that this is 
a well rounded FORTH system suitable for 
engineering and professional applications. 

Editors Comment -- FORTH Dimensions 
refrains from publishing timing benchmarks 
as this reflects processor speed Jiiori: than 
effectiveness of problem solving. How- 
ever, the above review points out that the 
allegedly superior Z-80 runs these tests 
slower than the 8080. Our point is that 
the user should evaluate alt aspects of 
problem solving: hardware characteris- 
tics, language implementation and appli- 
cation technique. The Timin manual is 
sold separatly for $20.00, This price is 
not justified by the copy received for our 
evaluation. 



HELP WANTED 

FORTH PROGRAMMER 

PDP-11 RSX Op Sys On Site Contractor 

Micro/Temps 
790 Lucerne Dr. 
Sunnyvale, CA 94086 
(408) 738-4100 



FORTH TELE-CONFEREHCE IS NOW OPERATIONAL 

FORTH now has a dynamic, public access 
data base. By dialing into the FIG 
CotnmuniTree (tra, the CoimnuniTree Group) 
you may access our tele-conferencing 
system. It was created by Figger John 
James to allow group interaction to build 
upon our collective knowledge. 

The number is 41 5-53S-3580 . The system 
runs 24 hours a day. Use a 300 baud modem 
and start with two "returns", the system 
is self-ins true ting. This conference 

holds information on emplojrment, vendors, 
applications, announcement calendar, 
inquiries f books, etc. Information of the 
conference is organized in a tree struc- 
ture, hence the name " Conference Tree". 

Our hope is that half of the callers 
will review the available material and 
then ask questions. The other half should 
add answers to these questions. You 
simply find a topic or message and attach 
your query/ response. Users naturally 
organize their material in a form that 
facilitates retrieval. 

This system was written In Cap'n 
Software Version 1.7. Versions for other 
than Apple II are being developed. 

For availability contact: 

The CommuniTree Group 
Box 14431 

San Francisco, CA 94119 

or call the original Tree: (415) 
526-7733. 
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FORTH, INC. NEWS 



RECENT FORTH COMMERCIAL APPLICATIONS 



MAJOR EXPANSION PlAiIS 

FORTH, Inc. is now entering a major 
expansion phase, according to President 
Elizabeth Rather. Appearing on a panel on 
"Programming Languages for Small Systems" 
at the recent NCC in Chicago , Rather 
observed, "The level of excitement and 
enthusiasm about FORTH in the industry is 
tremendouus . He are increasing our number 
of OEM' S and we have been approached by 
several major silicon manufacturers 
desiring to obtain marketing rights for 
special versions of polyFORTH. Arrange- 
ments are also being made to produce the 
FORTH processor! and we expect this 
project to start very soon," 



LIFEBOAT REPRESENTATIVE VISITS 

Hasa Tasaki, Managing Director of 
Lifeboat, Inc., FORTH, Inc.' 8 distributor 
in Japan, spent two days at FORTH, Inc . 
recently Co discuss mutual marketing 
plans. Lifeboat > Inc. is one of the few 
software distributors in Japan, and 
polyFORTH is the top of their product 
line. Tasaki has installed over 40 
polyFORTH systeois in Japan in the past 
year, and plans to sell an additional 50 
polyFORTH systems by the end of 1981. 



STARTING FORTH BOOK PREPRINTS AVAILABLE 

STARTING FORTH, a 380 -page book intro- 
ducing the FORTH language and operating 

system will be published by Prentice-Hall 
this September in both hard and soft-bound 
editions. FORTH, Inc. is offering limitt-d 
preprints to customers until then. The 
preprint, numbered and signed by both 
author Leo Brodie and Charles H. Moore; 
sells for $50.00 (plus 6% sales tax for 
residents of California). You may reserve 
a copy of STARTING FORTH by calling Winnie 
Shows at (213)372-8493. All orders must 
be pre-paid. 



Work has just been completed for 

Raytheon Corporation on a terminal cluster 
(up to 32 terminals with a single concen- 
trator). Each component of the system is 
controlled by an 8085 processor, and all 
are programmed independently, using 
polyFORTH, This is a capability they've 
never had before — to do custom program- 
ming and provide extensibility. Terminals 
up to two miles away can be polled at a 
rate 30 times faster than the previous 
protocol, \rtiich was written in assem- 
bler. Dean Sanderson was the principal 
programmer on the project. 

The famous 200" Hale Telescope at Mt. 
Palomar Observatory (near San Diego) has 
recently installed a polyFORTH system for 
data acquisition and analysis using a 
PDPll/44 and a Grinnell display proces- 
sor. The Observatory has been using FORTH 
since the early 1970' s, including a 
miniFORTH system installed in 1975 and an 
early polyFORTH installed in the late 
70' s, Barbara Zimmerman, a programmer at 
Cal Tech (which operates the obstir ^/n tory) 
said, "I am extremely impressed by the 
level of polish and sophistication in 
polyFORTH , and the performance of this 
system is outstanding." The type of work 
done involves reading data from an 800 x 
800 array of CCD sensors, integrating and 
recording the data, and displaying it in 
the Grinnell, Charles Moore installed the 
system, which features a comprehensive 
math package for analysis as well as basic 
image-processing functions. 

A by-product of this installation is the 

availability of polyFORTH in RK05 disk 
cartridges. These are available with on- 
site installation. 



SCHEDULE OF UPCOMING FORTH, INC. SEMINARS 
AND WORKSHOPS: 



Location 

Palo Alto 
Houston 
Tampa 
Irvine 



Seninar 



June 

July 
July 



4 

7 
9 



July 23 



Workshop 

June 5 
July 8 
July 8 
July 24 
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PARAMETER PASSING TO DOES 



David McKibbin 

Sygnetron 
2103 Greenspring Drive 
TimoniuiD, HD 21093 

Often in programming one rans into the 
case where several different processes 
share similar structures. Not wanting to 
waste time or space for redundant code, 
the programmer usually creates a sub- 
routine or procedure to execute the basic 
structure. Then the individual processes 
merely pass arguments to the prodecure to 
accomplish their task. Several schemes 
can be used to pass these parameters. In 
simple cases, the stack can be used 
directly. Ihis is the typical act of 
prograiming in FORTH, 

t TsiM w mse ; ( spin hh a whe ) 
100 mjn ( aouHE bassq> oh tse ) 

However, as the procedures get more com- 
plex it gets more and more difficult to 
keep track of the passed parameters espe- 
cially when the procedure itself is using 
the stack heavily. Also many times it is 
necessary to pass not only numbers but 
operators or words as parameters. One 
means of accomplishing this is via BUILDS 
DOES^. Parameters will be stored in the 
parameter field of the newly defined word 
and accessed from DOES^ via a new word 
{ $} . 1 $ will push the first parameter 
on the stack, 2 $ will push the second, 
etc. All parameters are 16 bits. Varia- 
ble R# is used to store the parameter base 
address . 

;$ l-I»P + I^@ + @; ( TB& N*1H 

mt&Em. ) 

t mmM, <BUIU]6 E(^> ^ I 1 $ 2 $ EXEOnS ; 

EsmE m 90 , ' miE oea , ( tzeb a * V ) 
mmz SFC 10 , ' spaces 0% , ( rm 10 spaces ) 

Mow that the mechanics are explained the 
following example will more fully demon- 



strate its usage. Both DUMP (16 bit dump) 
and CDUMP (8 bit dump) share a common 
;! true t lire with only a few inner words dif- 
fering. DLTMPS is a new defining word used 
as a procedure for both DUMP and CDUlff. 

: U.R SW^iP D.R ; 

: niffs ^wim WEsy U i i shore mumm bise 

ADDRESS ) 

BASE (3 R> HEX ( SAVE RASE JB© ^ EEX ) 

ovER + SMAP ( oamst TO mnm!!E 

CR HUP 4 U.R 2 SPACES ( TYPE ^SHStESS ) 
1 S BO 

DOP 2 $ EXECUTE 3 $ U.R 4 $ + 

2EIUP = OVER 16 Ma> 0= CR IF 
lEAVE imt 
WOP 

2DUP B TlEBMIHSL CR 
UKTIL 

DKOP IBDP CR 

R> BASE ! ; ( IBESTCRE BASE ) 

nJHPS CnilP 16 , ' C@ CPA , 4 , If 

( ^-ADDRESS, l-GOUNT ) 
DIMPS rSMP 8 , ' @ CFA , 6 , 2 , 

( 2-ACIXtESS, l-OOUNT ) 

What has been accomplished is akin to 
passing procedures/ functions as parameters 
in Pascal. I expect that there are other 
ways to do this FORTH beyond what has been 
proposed. 

FIG-FORTH UNDER OS-650 

Software Consultants has announced the 
availability of Fig-FORTH under 08-65U for 
the Ohio Scientific Line. The package 
includes assembler and a terminal oriented 
editor and is available now for $79.95. 

This version is said to support hard- 
disk, multi-user systems and may even be 
run in one partition and BASIC in another. 

For more information contact: 

Software Consultants 
7053 Rose Trail 
Memphis, TN 38134 
(901) 377-3503 
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COMPILER SECURITY 

George W. Shaw III 

SHAW LABS, LTD. 

17453 via Valencia 
San LorenzOf GA 94580 



How it Works and How it Doesn't (Adapted 
from a seceion of the Acropolis A-FORTR 
manual) 

There is much argument about parameter 
validation and error detection in FORTH. 
Many problems exist with many good solu- 
tions. Fig-FORTH and its derivitives have 
taken one route of extensive protection in 
compiler directives and their associated 
words. This is not an only solution in 
this area. Its extensiveness may not be 
necessary. There may be better alterna- 
tives. Read on, learn how fig-FORTH 
works , consider the options and then 
decide. Your opinion and ideas are 
needed . 

Fig-FORTH and its derivitives provide a 
type of compiler error detection referred 
to as "compiler security". Compiler 
security provides protection against 
structural progrannning errors made by the 
progranmer as well as insuring the proper 
machine state and, in a very few in- 
stances, the validity of parameters. 
Though it depends on the type of program- 
mi ng* the most common errors are struc- 
tural errors'* , machine state errors, and 
then parameter errors, respectively. 

(* structural errors may be caught 
internally by detecting parameter 
errors. See text.) 

STRUCTURAL ERRORS 

The compiler security system uses two 
methods to trap structural programming 
errors inside of colon-definitions. 
Structural errors are those caused by 
incorrect program structure; either 
improper nesting of structures or not 
completing a structure inside of a defi- 
nition. Either of these conditions would 
cause the program to compile incorrectly 



and could cause disastrous effects (I.e. a 

system crash) at run- time. The methods 
used by the compiler security system 
entail either checking a value on the top 
of the stack (to verify the proper nesting 
of structures) or checking that the stack 
position is the same at the end of a defi- 
nition as it was at the beginning of the 
definition (to ensure program structure 
completion). These two methods probably 
trap about ninety percent (90%) of the 
structural programming errors that a pro- 
grammar might make. 

The first in each of the paired struc- 
tural compiler directives (i.e. pairs such 
as IF THEN , DO LOOP , etc.) leave 
on the stack at compile time a value which 
is checked by the ending structure to 
ensure the proper nesting of structures. 
For example the word IF leaves, in 
addition to the other data necessary to 
compile an IF , the value of two (2) on 
the top of the Stack. The words ELSE 
and THEH remove a value from the top of 
the stack and check to see if it is a two 
(2). If the value on the stack was not a 
two (2), a Conditionals Not Paired error 
(#19) results, and compilation is termi- 
nated (control returns to the keyboard). 
If the value is a two (2) the remainder 
of ELSE or THBIT executes, removing the 
necessary data from the stack to finish 
the structure, and compilation continues 
on to the next word. 

Below is a table of the conditional 
pairs for the current structural compiler 
directives, with the values placed on the 
stack open and the values removed from the 
stack in parenthesis. Note that UNTIL 
and END as well as THEN and ENDIF 
have the same effect. Only the former of 
each pair are presented here for clarity. 



REPEAT (1) (4) 



BEGIN 


1 


UNTIL (1) 


BEGIN 


1 


WHILE 4 


BEGIN 


1 


AGAIN C 1 ) 


IF 2 




THEN C 2 ) 


IF 2 




ELSE (2) 


DO 3 




LOOP (3) 


DO 3 




+LOOP ( 3 ) 


DO 3 




/LOOP (3) 


DO 3 




+/L0OP (3) 



2 THEH (2) 
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Note that ELSE tests and replaces the 
same value on the stack. Because of this 
the current compiler security system 
cannot detect the presence of multiple 
ELSEs In a definition. For example, in 
the definition: 

: ELSE-E5CAMP1E flag — true or false message ) 
IF ." Ttue part I " ELSE False part 1 " 

El^E False part 2 " O^E ." False part 3 *' 
HEN ; 

if compiled ^ (and it will compile,) and 
then executed with a boolean value (zero 
or non-zero) on the stack, will execute 
without crashing the system. But the 
execution may not be what you expec ted . 
If entered with a true flag (non-zero) the 
"True Part 1" and the "False Part 2" will 
print, while if entered with a false flag 
(zero) the "False Part 1" and "False part 
3" messages will print. To borrow a 
phrase from Kim Harris, probably " Hot what 
you had in mind I". 

This is the only case I know of where 
the compiler security system plainly does 
not work, but there are probably more. 

How is this, apparently incomplete, 
structure checking performed? Read on. 

The values on the stack is verified by 
7PAIRS . For example the words ?PAIRS , 
BEGIN and AGAIH are defined as follows: 

: ? PAIRS - 19 ?ERROR ; 

: BEGIN ?COMP HERE 1 ; IMMEDIATE 

: AGAIN 1 ?PAIRS COMPILE BRANCH BACK 

; IMMEDIATE 

BEGIN first checks to make sure that it 
is being executed in compile mode (inside 
a definition) with 7G0MP which issues an 
error if it ia not. It leaves the current 
dictionary address on the stack ( HERE ) 
as a branching reference for AGAIN , and 
then the 1 as the first of a conditional 
pair. When AGAIN later executes during 
the compilation of the definition it first 
checks the stack to see that a BEGIN 
preceded it at the same level of nesting 
by executing 7PAIRS . ? PAIRS expects 
to find a matched pair of values « in this 
case ones (1), as a matched set of condi- 



tional pairs. If ?PAIRS does not find a 
matched set, it aborts with a Conditionals 
Not Paired error (#19). If the values on 
the stack are paired, it removes them and 
returns. 

The above simple form of error checking 
is very effective, but as structures 
become more complex, manipulating and 
maintaining the stack values can become 
cumbersome and unwieldy. The above is 
also not yet com^plete. One more check 
must be executed to ensure that the 
structures in the definition have been 
c(»iipleted. Since the above error checking 
leaves data on the stack if a structure 
has not been completed , the simplest check 
is that of the stack position. When a 
definition is entered : (colon) stores 
the Current Stack Position in the user 
variable CSP . At the end of a defini- 
tion, ; ( semi-colon) executes ?CSP to 
compare the current stack position to the 
value stored in CSP . If the values 
differ a Definition Not Finished error 
(#20) occurs indicating that either data 
was left on the stack or that too much 
data was removed from the stack, i.e. that 
a programming structure was probably not 
completed. The word "probably" is used 
here because other conditions , such as the 
improper or sometimes various proper uses 
of the word LITERAL , will cause the same 
error condition to occur. 

MACHINE STATE ERRORS 

The loading and execution of a FORTH 

program causes the system to enter several 
different machine states. Three of these 
are loading, compiling, and executing. 
Each of these states is defined by its own 
set of parameters and some states may even 
overlap. For example, while loading a 
screen off the disk the machine will be 
either executing or compiling. Here the 
loading state has overlapped with either 
the execution or compilation state. The 
machine cannot be in the execution state 
and the compilation state at the same 
time, though the states may be inter- 
leaved. An example of interleaved states 
is the use inside a definition of a pro- 
gram segment similar to this: 
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[screen 3co]+ literal 

which temporarily suspends compilation to 
calculate the value within the brackets 
and then compiles It as a sixteen (16) bit 
literal. ' Remember though, that to com- 
pile , the machine is executing a program, 
and that compiler directives (such as 
LITERAL above) execute during compilation 
to perform their task, but the machine 
state remains that of compilation. 

Certain words require that the machine 
be in a specific state to execute proper- 
ly. These words are programmed to contain 
one of the following words: 

?COMP ?EXEC ?LOADING 

which check for their corresponding state 
and issue an error message if the machine 
is not in that state. Below is a descrip- 
tion of each of the above words and the 
parameters which determine the current 
machine state. 

?£XEC or ?COMP 

The execution state or compilation state 
is determined by the value of the user 
variable STATE which has a zero (0) 
value if the machine is in the execution 
state and a non-zero value the machine is 
in the compilation state. 

?LOADIHG 

Loading is determined when the value of 
the user variable BLK has a non-zero 
value. A value of zero for BLK indi- 
cates that input is coming from the user's 
terminal and that the machine is therefore 
not loading. 

The above words are defined as follows: 

: 1EX&C STATE @ 18 TERROR ; 

: ?COMP STATE 0= 17 7ERR0R ; 
: ?LOADING BLK @ 0= 22 ?ERROR ; 

If the machine is not in the execution 
state when 7EXEC executes an Execution 
Only error (#18) occurs. 

If the machine is not In the compilation 



state wh&Ti ?COMP executes a Compilation 
Only, Use in Definition error (#17) 
occurs . 

If the machine is not in a state of 
loading when 7L0ADIHG is executed a Use 
Only When Loading error (#22) occurs. 

The testing of machine states as above 
is necessary vrtien words such as BEGIN 
and AGAIN (see example in STRUCTURE 
ERRORS above) are used. These words may 
only be compiled because they must compile 
something other than themselves which is 
not known at the tuie they are executed. 

PARAMETER ERRORS 

During compiling and similar operations 
there are only a few parameters which are 
actually checked. In most cases, the 
parameters checked are those involved in 
the other areas of compiler security or 
those which deal with the size or validity 
of the dictionary and stack. 

The words involved in other compiler 
security areas are !CSP , ?CSP , 

7PATRS . These words are used to protect 
against structural programming errors as 
described above in STRUCTURAL ERRORS. An 
explanation of each of the uses of these 
words is as follows: 

!CSP ?CSP 

These words are used together to check 
for changes in the stack position. 
!CSP stores the current stack position in 
the user variable CSP . ?CSP compares 
the value in CSP to the current stack 
position and, if they are not Che same, 
issues a Definition Not Finished error 
(#20). !CSP and TCSP are currently 
used in ; and ; respectively to ensure 
that all structures in the definition have 
been completed before the semi-colon. Any 
structures uncompleted will leave data on 
the stack and thus allow ?CSP to flag 
the error. These words can also be used 
to check the stack effect of user defini- 
tions. For example, if a definition 
should have no stack effect (leaves the 
same number of items on the stack as it 
removes) the following would test this: 
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ICSP cccc ?CSP 

which would execute a definition named 

cccc and issue a Definition Not Finished 
error (#20) if the number of items on the 
stack at the beginning and end of the 
definition were different. 

?PAIRS 

This word is used when testing for 

correct structure in compiler directives 
(see STRUCTURE ERRORS) to check that the 
value of the two numbers on the stack is 
the same. If the value of the two compi- 
lation conditionals on the stack is not 
the satae, a Conditionals Hot Paired error 
(#19) occurs. ?PAIRS can be used to test 
similar situations in user programs, but 
the error message given will be the same 
(error #19). 

The checks on the dictionary and stack 
consist of testing the stack for under- 
flow » the dictionary and stack for over- 
flow, and the name of the dictionary entry 
to be created for uniqueness ( in A- FORTH 
this test is optional and there is a test 
to ensure that a definition name is not 
null). Some of the tests are performed 
during the execution of other functions by 
the testing word (such as the tests per- 
formed by WORD and by CREATE ). Only 
the testing performed by these words will 
be described here> 

CREATE 

This word creates a dictionary header 
for a new word. In the process of 
creating this header a dictionary search 
is performed to check that the header is 
unique. The message given if a duplicate 
is found is Isn't Unique (#4). This is 
not a fatal error but just a warding. 
A-FORTH allows the disabling of this test 
(and the associated message) and performs 
another test for a dictionary entry whose 
name is a null. The creation of a dic- 
ti onary entry with a nu 1 1 name Is not 
allowed because the null is the name of 
the entry interpreted at the end of the 
disk or terminal buffers. If an attempt 
to create a null entry is detected a Null 



Definition Name! error (#9) is given. If 
a dictionary entry with a null name were 
created, the system would attempt to 
interpret this as the end of the current 
buffer with unpredictable results. 

? STACK 

This word checks that the parameter 
stack is within bounds . It compares the 
current stack position (by executing SP@) 
against the base stack position in user 
variable SO to check for a stack under- 
flow. It also checks that there are at 
least 128 bytes of dictionary space left 
(to leave room for PAD and stack work). 
If the stack underflows an Empty Stack 
error (#1) is given. If the stack comes 
within the 128 bytes of the dictionary a 
Full Stack error (#7) is given. tSTACK 
is not executed at runtime unless compiled 
by the programmer, though it is executed 
frequently during compiling and text 
i nterpre ta tion . 

WORD (A-FORTH only) 

This definition moves text from the 
current input buffer to the head of the 
dictionary. The error test performed 
checks that there is enough space between 
the head of the dictionary and the top of 
the stack for the text about to be 
moved . If there is not enough space a 
Dictionary Full error (#2) is given. This 
prevents the system from crashing by 
writing over its own stacks. 

DO WE NEED IT? 

Should we have all this security all the 
time? Or just when we think we need it? 
Fig-FORTH currently does not give us a 
choice on the matter. Sure, we can com- 
pile on top a new set of compiler direc- 
tives which don't have the tests, but we 
have then already wasted all the memory 
for the secure directives, the ?XXX words, 
and the lot. The reverse course I con- 
sider more appropriate. The kernel system 
should have as little protection as pos- 
sible. The system should not suffer the 
overhead for those who do not desire it. 
If security is desired, a "Novice Pro- 
grammer Protection" package could be 



FORTH DIMENSIONS IIl/l 



Page 18 



compiled into a user's area which would 
include all the words necessary to protect 
him or her Cand the other users) from him 
or herself • This would allow protection 
even for the words such as t (store), 
FIU. and CMOVE when desired. 

Something as simple and extremely effec- 
tive aa the ICSP and ?CSP in : and 
I respectively may be left in the kernel 
system to give warning to even the best of 
us when necessary. Definitely, also the 
stack checks at compile time and possibly 
the uniqueness (though it should be 
optional) and null definition (currently 
A- FORTH only) checks should be left in, 
but the structure and state testing is 
often Incomplete and annoying. Anyone who 
has tried to write and secure a good 
general CASE structure, or a BEGIN 
WHILE REPEAT loop wh i ch all ows mul- 
tiple WHILES -will know what a pain it is 
to try to secure them in a reasonably 
complete fashion. For these people 
compiler security dosn't work. Addition- 
ally, new structures transported from my 
system to another may not remain secure 
because the same conditional pair numbers 
used in my structure on my system may have 
been used in a different structure on the 
other system. Again, the compiler secur- 
ity dosn't work. 

The same method used in high level struc- 
ture, testing is also used in one known 
assembler, which the author considers 
totally inappropriate. If one is programr 
ming in FORTH assembler one is doing so 
for speed, which may require not being 
structured at all. 

Currently, the matter of compiler security 
is being studied by the group writing the 
next 8080 fig- FORTH version (which could 
possibly outline a new model). Should we 
have all the protection all the time, or 
just some of it and a programmer protec- 
tion package? Or raayhe there is a better 
alternative. Your input is wanted and 
needed. Write to the 8080 group at FIG, 
PO Box 1105, San Carlos CA 94070 and tell 
us what you think. 



NEW PRODUCTS 



POIYMDRPHIC FORTH NOW AVAILABLE 

FORTH is now available for the Poly- 
Morphic Systems SSSB 5" systems (8813 & 
8810) . The PolyMorphic disk operating 
system has been patched in and the system 
is interfaced to the PolyMorphic operating 
system. PolyMorphic FORTH includes a 
modified systems disk, and brief documen- 
tation on changes to interface to the 
PolyMorphic SSSD 5'* disk operating system 
— based on 8080 Fig-FORTH. Price is 
$50.00. For more information contact: 

Ralph E. Kenyon, Jr. 
ABSTRACT SYSTEMS, ETC. 
145-103 S. Budding Avenue 
Virginia Beach, VA 23452 

FORTH FOR HP83/HP85 

A disk based FORTH is now available for 
the HP85/HP83 personal computers. The 
implementation is the FIG FORTH 1978 
standard with some machine dependent util- 
ities. User receives both 16k and 32k 
versions with user space being 2k and 18k 
respectively. Both versions require a 
disk. Included is an assembler, a FORTH 
decompiler and editor. This is not an HP 
supported product hut available through 
the user's library. FORTH, in object form 
(no source), an assembler, decompiler and 
editor, in source, are sent on a disk. 
This product recommended for experienced 
users only! Those familiar with FORTH 
should have no trouble using this system 
(i.e. there is no manual inluded). 
However, sufficient references are 
?iven. Current cost is $50.00, For more 
i nf -miHt irin contact Nany Reddington at 
(503) 757-3003. 



FORTH PROGRAMMER AVAILABLE 

3 mos . experience with FORTH (also know 
BASIC & COBOL) Active member of F.I.G. 
Contact: Martin Schaaf, PO Box 1001, Daly 
City, CA 94017 (415)992-4784 
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USERSTACK 

Peter H. Helmers 
University of Rochester 
Department of Radiology 
Medical Center, Box 648 
Rochester, SY 14642 

IHTRODUCTION 

One of the advantages of FORTH is its 
use o£ a stack oriented architecture. In 
conventional FORTH implementations, one 
has available two kinds of stacks: the 
return stack and the parameter stack. In 
general, the return stack is used to keep 
track, at execution time, of the path of 
invocation of nested FORTH words while the 
parameter stack is used to manipulate data 
used within and/or passed between FORTH 
words. 

Unfortunately, in the real world, such a 
clean segmentation between parameter data 
and execution nesting data tends to break 
down. For example, 1X}...L00F8 are imple- 
mented by using the return stack to keep 
track of the loop count and associated 
data. The motivation for this violation 
of the sanctity of the return stack with 
TX)...LOOP parameters is the desire to 
separate the DO,,.LOOP data from any 
pararoeters being used by the progranmer 
within the loop. Failure to do so would 
allow confusion of loop parameters with 
actual user data — causing a consequent 
abnormal execution of the DO... LOOP 
arising from an unwarranted modification 
of loop parameters. 

In addition to the above saving of 
DO,.,LOOP parameters on the return stack, 
it is not uncommon practice for a program- 
mer to want to save some parameter stack 
data in order to be able to first calcu- 
late using data beneath it. One previous- 
ly employed method to do this was to 
temporarily push the paraneter stack data 
onto the return stack, and then later 

Editor's Note: Mr. Helmers uses URTH, a 
dialect of FORTH. 



retrieve it vben subsequently needed. 
Admittedly, this is an easy — lazy! — 
way to achieve tranisent data storage. 

But woe unto those who forgot to pop the 
return stack of this temporary data... I 

USER STACKS 

The "user" stack concept allows a FORTH 
program to retain the convenience of an 
auxiliary stack, but in such a way as to 
avoid mixing temporary data with execution 
time return information. As an added 
convenience, this concept allows creation 
of multiple, named, stacks which can be 
typed according to the number of (two 
byte) words per stack element. 

A user stack can be thought of as an 
array (integer, double precision, or real) 
of data which has implicit addressing. 
Consider, by way of walogy, a conven- 
tional array such as: 

100 OOIM MY-ARRAY 

One would store the 53rd integer element 
by explicitly stating the index: 

52 MY-ARRAY ! ( ZERO ORIGIN...) 

This would take data from the top of the 
parameter stack and store it in MY- 
ARRAY . Alternatively, one would access an 
integer frcm this array by: 

27 MY-ARRAY @ 

The disadvantage of arrays is that they 
require both an explicit index, and an 
explicit load C@) or store (!) operator. 
While an array could be used for temporary 
storage of parameter stack data, such 
programming practice is not neccessarily 
clear or efficient. 

So how does a user stack help us? 
Consider the integer user stack defined: 

100 STACK MY-STACK 

MY-STACK would, in this case, have a 
size of 100 integer elements. Data can be 
put into this user stack from the top of 
the parameter stack by: 
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PUSH H7-STACK 

iAiile it can be retrieved back to the 
parameter stack by; 

POP MY-STACK 

Note that addressing is implicit — there 
are no indices — and that the direction 
of data transfer is set by the PUSH and 

POP words, 

USER STACK WORDS: 

In practice, three types of user stacks 
have proved useful; STACK, DSTACK, and 
FSTACK. While stack variables created by 
these three defining words all use the 
PUSH and POP words to save and retrieve 
data, the amount — or type -- of data 
pushed or popped differs. As discussed 
earlier, STACK deals with integer (two 
byte) words, DSTACK consists of elements 
of double precision integer words (four 
bytes) while FSTACK elements are floating 
point numbers (six bytes). All three of 
these words are defined in terms of an 
arbitrary n-precision NSTACK word which 
allows specification of any number of two 
byte words per stack element. 

Two other words are also useful with 
user stacks. There are EMPTY-STACK and 
? STACK. Note that both of these cannot 
(presently) be used within colon 
definitions. The line: 

EMPTY- STACK MY- STACK 

will, for example, reset the stack pointer 
for the user stack: MY- STACK so that it 
will be empty* Again using the HY-STACK 
example, 

?STACK MY~STACK 

• will dump out the contents of the stack 

from the top of the stack through the 
bottom of the stack. ?STACK is intended 
purely as an aid in debugging. 

IMPLEMENTATION: 

As was previously mentioned, STACK, 
DSTACK, and FSTACK are all defined in 



terms of a more general NSTACK defining 
word. A line such as; 

22 4 NSTACK WIDE-STACK 

will define a 22 element stack with eight 
bytes (four words) per element . NSTACK 
has two primary parts. The first part, 
executed when a new stack is defined, 
builds a FORTH word header, stores some 
stack definition parameters into the dic- 
tionary, and finally allocates the actual 
dictionary space for the stacks The 
second part, written in 8080 assembly 
language for speed, defines the execution 
time actions taken by the stack varia- 
ble. Both of these defining parts will be 
explored in greater detail below. 

The format of the user stack in the 
dictionary is shown in Fig. I. It con- 
sists of a normal FORTH header, followed 
by the following four stack definition 
parameters: 

a) current stack pointer (two bytes) 

b) #words per stack element (one byte) 

c) maximum stack pointer address (two 

bytes) 

d) minimum stack pointer address (two 
bytes) 
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Note that the stack, consistatit with the 
8080 architecture, grows down in aemory. 

Follovfing these stack parameters is the 
actual stack area which is allocated in 
the dictionary. 

The PUSH and POP words are code defini- 
tions (for speed) which push a or — 1 
flag value to the top of the parameter 
Stack. Thus, when the stack variable is 
subsequently executed, this flag is used 
to differentiate between popping from the 
user stack (£lag=0) and pushing to the 
user f!tack (flag-1). The assembly code is 
thus separated into two very similar exe- 
cution loops which move Stack data one 
word at a time until the proper number of 
words for the stack element have been 
move-d; thi=iKi; two loops differ only in the 
direction of the data transfer. In both 
loops, the A register contains the current 
word count which is intially set to the 
number of words per stack element and 
decremented each time through the loop. 
The BC register pair contains the current 
user stack pointer while the HL register 
pair contains the address of the stacks 
parameter field so that the new user stack 
pointer value may be saved after all words 
within the stack element have been trans- 
ferred. 

CONCLUDING REMARKS 

These user stacks have been optimized to 
provide rapid execution speed at the 
expense of high level transportability and 
error checking for a stack pointer out of 
bounds. It is felt that the concept, in 
whatever realization, is important since 
it provides a very readable and structured 
method to temporarily store and sort data 
without having to resort to such "unclean" 
practices as using either explicitly 
addressed arrays or the return stack. 
It's the type of FORTH word that, once you 
have it, prompts the question; "it's so 
obvious, why didn't someone think of it 
before?" 
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NEW PRODUCT 



A STACK DIAGRAM UTILITY 



STAISD-ALOHE FIG-FORTH FOR OSl 

FORTH Tools has announced stand-alone 
Fig-FORTH for all OSI mini- floppy com- 
puters that combines Fig-FORTH with stand- 
alone machine drivers by FORTH Tools. 
Vith this system OSI-65D is superfluous — 
with FORTH booting up directly, yet the 
disk is 0S-6SD compatible. 

Since FORTH Tools FORTH disp--nses with 
the OSI operating system, FORTH Tools has 
developed disk^ display and keyboard 
drivers for the OSI hardware. 

FORTH Tools FORTH for OSI is strictly 
compatible with Fig-FORTH. All words in 
the Fig model, including disk support, 
work correctly. Portability to other 
machines is also claimed. 

Stand-alone Fig-FORTH for OSI is avail- 
able on one 5-1/4" disk for CI (Super- 
board), C2 and 04 machines with 24K. 
Product includes a structured 6502 macro- 
assembler and disk utilities designed by 
FORTH Tools and the FIG portable line 
editor. Complete technical documentation 
and the fig-FORTH glossary are also 
included. The complete price is $49.95. 
For more information contact: 

FORTH Tools 

Box 12054 

Seattle, WA 98102 
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Barry A. Cole 
3450 Sawtelle Blvd. #332 
Los Angeles, CA 90066 

IBTRODOCnON AND COHCEPT 

A year and a half ago, when I was still 
fairly new to FORTH, I spent a lot of time 
drawing pictures of stacks as I made up 
programs. I crumpled there up and started 
over each time I changed them- As 
sections were debugged, L drew up another 
copy to document the code. When I found 
an error, I would have to redraw 1^0 le 
series of stacks, just as a cartoonist 
would have to change a whole series of 
frames. It soon became clear that I was 
expending time to do rather tedious 
work. I came up with an idea for an 
automated tool to update these diagrams. 
I thought up a way to represent the stack 
data easily and an approach to implement 
the tool. The original implementation was 
done in 8080 polyFORTH by my co-worker 
Greg Toussaint . We collaborated in the 
initial debugging and then passed it back 
and forth over the next four months. 
After nearly a year in active use, I 
converted it to fig-FORTH and updated 
several raessy areas to be more straight- 
forward. The results of these pursuits 
are detailed in this paper for more 
general consumption. 

ORIGINAL IMPLEMENTATION 

The original program was going to take 
push and pop information from the keyboard 
to generate pictures of what was on the 
stack. It became inmediately clear that 
the stack could more easily be represented 
horizontally than down the page. We chose 
to put the r-^tack to the right so that the 
size of the stack could be read like a bar 
graph. 1 figured that if I represented 
each item on the stack as an address 
pointing to a count and printable string, 
that many of the stack diagram words would 
be identical to the FORTH word equiva- 
lent. Thu s , DUP , OVER , DROP as we 1 1 as 
many othf^r primitives would b<' coded 
before I started. Even as it was being 
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built, the tool grew to get the source 
codes directly from disk and then to 
generate a printer format spool file also 
onto FORTH screens , Keeping track of 
values when si IF was encountered and 
restoring them on ELSE and THEN was 
added. This generates a warning message 
if the two paths leave different numbers 
of parameters on the stack. Finally > 
concatenation of strings for algebraic and 
logical expressions was added. 



USA6E AND OPERATION 



The main routines called a user are: 



screen^ DOC defnams 
acreenf/^ SnX 
screech ^TDOC 
VOX 



to docunent 1 definition 
to docusait a \^le scr^n 
to print f ran given screen 
to print last documaiC^ian 



The program clears the display stack 
before each colon definition. A search is 
made for the first colon on SDOC or the 
specified name following a colon on DOC. 
The name of the function is displayed 
along wi(:h the currently empty stack con- 
tents. It requires user input to continue 
since the entry conditions of the routine 
are unknown. It prompts "DROP?" to see 
how many excess elements should be dropped 
from the stack, A carriage return suf- 
fices to leave it alone. It continues 
with the prompt , "PUSH VALUE?". For each 
symbolic name of a value on the stack, a 
free form name should be typed followed by 
a carriage return, The prompt will be 
repeated until a line consisting of only a 
carriage return is typed. There are no 
limitations imposed on the input, however, 
it is advised that nulls and tabs should 
not be included as this will detract from 
the clarity of the filial output. The 
program will then continue reading words 
from the source screen and generating 
output lines to the console and spool 
file. 

In a typical sequence, up to about a 
dozen lines will be handled without inter- 
vention. For example, occurences of DUP, 
DROP, and numeric literals will be pro- 
cessed automatically. When a @ is encoun- 



tered, it will revert to the prompts since 
it is not known what a symbolically appro- 
priate name is for the fetched value. 

Processing will terminate with an "OK" 
for sucessful completion of the screen or 
colon for SDOC or PDOC, respectively. If 
stack under flow occurs s , it wil I abort . 
It is good practice to do a FORTH after an 
abort condition to insure that the stack 
vocabulary is properly exited. A user 
abort is also provided. This is accom- 
plished by typing an escape key followed 
by a carriage return in response to the 
"PUSH VALUE?" prompt. 

SAMPLE DIALOG 

The package creates a special stack 
vocabulary as well as the user entry 
points. The use of the package is best 

seen by example. Figure 1 is a sample 
dialog. Notice how little intervention is 
required and how the ELSE restores the 
stack values. Figure 2 is the source that 
was used in the examples. Figure 3 is the 
printer output as displayed by PDOC. 



FIGURE 1 
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FIGURE 1 (cont,) 



FIGURE 3 
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IVNRLYZE SWAP INCH !>0P ?F 
DUP OUCH OUEK CI It SKflP 1- 



IF DUP DO - IF 



ELSE 
ELSE 



( CH) DROP SWAP anOi' m OUCH 
( DELETE) DROP S OUCH 1- SWKP 



OVEH C! 
1+ THEN 
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FORTH PROGRAMMER 

Entry Level - Will Train 

JoTtn Sackls 
Data Breeze 
2625 Butterfield Rd. Suite U2E 
Oakbrook, IL 60521 
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CONDITIONALS 

The IF. ..ELSE. ..THEN construct 

aut(nnaticall3r saves and restores the stack 
values. A mismatch in number along the 
two paths produces a warning message, 

"STK ERROR, ELSE -m MEN -n" 

where m is the number of parameters left 

on the stack aC the end of the IF clause 
and n is the number left when the THEN is 
encountered. The DROP /POSH prompts are 
presented for the user to attempt 
recovery, A known cause of this message 
is a -DUP preceding the IF, as this is 
not handled. 

SPOOLING TO DISK 

To be useful, a hard cop^ of the output 

without all the intermediate operator 
conversation is useful. It is also quite 
possible that a machine readable version 
would be handy to facilitate distribytion 
of the documentations. A spool file is 
generated to satisfy these requirements. 
It may later be displayed or printed by 
PDOC. 

The spool file contains the encoded 
screen from which the diagram was made 
followed by variable length lines 
separated by carriage return characters. 
The file Is terminated by an ascii null 
character. It resides on a set of 
consecutive screens. The first screen and 
maximum number are determined by literals 
in SPIT and PRTDOC. 1 use 10 screens 
starting at 230. These may be copied 
elsewhere and printed by PRTDOC. Failure 
to copy them will cause the listing to be 
lost the next time a function or screen is 
diagranmed. 

IMPLEMENTATION PROBLEMS AND SOLUTIONS 

It is important not to search the 
Standard vocabularies when diagranming 
stacks. This is because actions are 
different for the same namsj depending 
upon state. By way of example, for the 
operator + must concatenate the symbolic 
name strings representing these elements 



with an embedded plus sign, rather than 
adding the top two elements on the 
stack. Also, not all operators are 
defined. On detection of this case, the 
diagrammer must shift control to the 
operator prompt section. In polyFORTH, 
this was accomplished by defining a new 
vocabulary and having it be the only one 
s ear ched , in fig- FORTH , this option is 
not directly available since the FORTH 
vocabulary is searched after the current 
vocabulary. This may be solved by 

carefully breaking links with zero 
entries, or alternatively by defining a 
special dictionary search routine that 
stops at some fence value. 1 chose the 
latter. 

It wasn't obvious until the 
implementation began that operators would 
require concatenation of their identifying 
strings. It was also decided that 
parenthesis would be placed around each 
level of expression nesting so that 
ambiguity could be eliminated without 
rearranging expressions for precedence. 
This occasionally leads to expression such 
as ((array+2)4-2). This is unavoidable 
since even the constants within the 
expression are treated as strings rather 
than numbers. Thus, the example cannot be 
reduced to Carray+4). 

Error recovery is not nearly as good as 
I'd like it to be. Stack underflow in the 
diagramming session is generally fatal. 
Due to the amount of bookkeeping already 
being done, there is no provision for 
retracting answers after wrong data has 
been put on the diagram stack. This is 
inconvenient in a first pass through a 
function, but has not proved to be a 
problem once a feel for the tool and the 
function being diagrammed has been 
ac quired. 

Provision is left for user defined 
functions in the last two screens of the 
diagram source. This allows commonly used 
functions to be handled in an automated 
fashion. This makes it very easy to 
define composite functions such as, 1- as 
the sum of its component parts. For out- 
side of functions, constant and variable 
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have been redefined to put their own name 
on the stack. Before this facility was 
added, I always retyped the variable oasie 
manually when it came up. 

The apool function md some of the 
source reading routines such DOC assume 
that screen blocks are contiguous 1,024 

byte areas. Those functions using BLOCK 
will have to be rewritten if this is not 
the case in your system. I recommend that 

you instead generate a new system with Ik 
buffers as that is faster and more 
flexible, 

WEAKNESSES AHB PROPOSED FUTURE EXTENSIONS 

The diagraooner presently does not keep 
track of the contents of the return 
stack. This requires uses of R)> and I go 
to the operator for clarification. Try a 
pencil for now. This could be added in a 
similar fashion as IF ELSE THEN by an 
additional stack. 

The area of error recovery is ripe for 
suggestions. Perhaps some dunmy buffer 
area could be added and tested in PSTAK. 
This would allow detection prior to 
destruction on stack underflow. Backing 
up by reading backwards would be nice but 
also very difficult to implement. 



CONCLUSION 

How that the tool has been built, its 
real function is more evident. It is 

still used for documenting words as origi- 
nally intended, however, its primary usage 
is debugging and validating code. It has 
also proved to be very useful as a 
teaching aid to explain what is going on 
within the stack. I hope it will be as 
useful to you as it has been to me. 



A STACK DIAGBIAM GLOSSARY 
VARIABI^S 

:BK The base block number for spooled 

stack diagram. 



;LN Line number being printed. Used 

for page headings. 

;SC Current screen number being 

spooled. 

IFPTR The address of top of IF stack. 
Used to restore values on stack for 
IF. ..ELSE. ..THEN construct. 

IFST The area reserved for pointers to 
previous stack contents. It is used to 
restore the Stack on ELSE and THEN 

clauses. 

SPL A temporary variable used by :NFD 

to retreat the spool file to erase the 
unknown stack prior to operator specifi- 
cation of what is added or dropped. 

SPOOL Offset into spooled print file. 

SUM The sum of differences in two 

strings. Used in -TEXT. Value is for a 
text match and nonzero if different. 

Tl Pointer to current input word in 

memory (type format). 

COHSTAHTS 

LLIMIT The limit address for dictionary 
search to keep from using standard FORTH 
words from within the STACK diagrammed 
words . 

FUNCTIONS 

'FIND pfa length true (found) 

'FIND false (not found) 

This is the same as -FIND except that 
the true condition is set only if the work 
is found above LLIHIT. This restricts the 
search to stack vocabulary words. 

( '(' 

A string constant used for building 

expressions when arithmetic or logical 
operations are encountered in the dia— 
granmed input string. 
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Defined back to its original state 
after being used as a concatenation token, 
this marks the beginning of a comment. 

All text following it is ignored 
until the next ) . 

Tests two strings for not equal. 

) ')• 

A string constant used for building 
expressions when arithmetic or logical 
op era t ions are encountered in the dia- 
grammed input string. 

stl st2 -XEXI cond 

True if the two strings differ. 

val 1- val-1 

Decrements the top of stack value by 

one. 

vl v2 2DR0P 

Drops the top 2 elements off the 
stack and discards them. 



This is the stack diagram 
redefinition of colon. It diagrams the 
word following it instead of compiling. 

It is invoked by colon as the very 
last definition from within this package. 

stl st2 :C st3 

Concatenates two strings into a 
single combined string. It is used to 
build expressions when operators are en- 
countered in the screen to be diagransaed . 

:HEAD 

Prints the header for a line of 
output to the console and also the spool 
file. 

:KILL 



Removes and discards the top of the 

IFST. 

:NFD addr 

This is called when the word being 
analy^sed is not in the special stack 
vocabulary. It checks for valid 

numbers. If this test is passed, it 
returns a pointer to that string. 
Otherwise, it invokes SKBD to get user 
help. 

adr :PSH 

Pushes the address of a level of the 
stack values onto the separate IF stack. 
This is used for IF .. ELSE THEN stack 
restoration and checking. 

adr :RST ell el2 etc 

Restores the stack from the IFST 
stack. Does not affect the IFST. 

adr : SAV 

Saves current stack el^nent list on 
the IFST. Does not affect the pareoneter 
stack. 

Marks the end of the spool file with 
a zero. 

adr ?NUM cond 

Checks current word to determine 
whether it qualifies as a legal 
hexadecimal number. 

CONSTANT 

A defining word which causes the name 
of the defined word to be put on the stack 
when that word is encountered. 

— DEPTH depth 

Computes the depth of the stack in 
items. 

scr# DOC 
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Searches for a colon followed by the 
word i^ose name follows this invocatioa on 
the specified screen. It aborts if the 
definition is not on the specified 
screen. Otherwise, it conmences to gen- 
erate the diagram for the word specified. 

ELSE ell el2 etc 

Clears the stack and then restores it 

from IFST. 

ESC 

Aborts the package if an escape key 
was the first key pressed in answer to the 
"PnSH?" prompt. The vocabulary reverts to 
FORTH; however, the stack diagram package 
is still loaded and ready to go. 

— G-HERE adr cond 

Moves a string from PAD into the dic- 
tionary. It allots the space and leaves 
the address of the item and a true cond if 
successful. It leaves only a false cond 
if no valid string was found. 

expr G(l) op(expr) 

Builds an expression from a simpler 

expression. At execution time of the 
following word, the top of the stack is 
enclosed in parenthesis and preceded by 
the operation symbol. It is used for 
unary operations, eg. -(name) 

expr 6(2) op(expr) 

Similar to G(l) except that unary 
operation is also enclosed within the 
parenthesis, eg. (name*2) 

espr GC3) op(expr) 

Similar to G(l) except that binary 
operation is also enclosed within the 
paren the sis. eg. (vail -t-val 2 ) 

inadr GBLD 

An auxiliary word used to build a 
named string in the dictionary from the 
word following GBLD. This is used at 



compile time of the stack diagram package. 
GWRD 

A defining word for building strings 
into the dictionary at compile time of the 
stack package. On invocation of the new 
word, the address of the string displaying 
its own name is put on the stack. The 
word that follows GWRD is read twice at 
compile time, once for the name of the 
function, and a second time to be placed 
in string format into the dictionary. 
This is used to build up constant words 
for the diagrataming package. 

cond IF 

Drops the condition flag from the top 
of the stack without evaluating it. It 
then invokes :SAV for ELSE restoration and 
THEN error checking. 

adr cut MTltP 

Types the message to the screen and 
also passes the parameters to STYP for 
spooling. 

src dst len MVB dst len src+1 src 

Intermediate function to set up for 

MVDEL . 

src dst delira MVDEL adr 

Move a string frora the source to the 
destination address until the specified 
delimiter is encountered. This is used to 
build data strings within the dictionary, 

PDOC 

Prints the latest generated diagram 
from the default spool file blocks. 

PHDG 

Prints the top of page heading and 
sets the lines per page count. Used by 
PRTDOC. 

blk# PRTDOC - — 
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Prints the stack diagram from the 

spool file i«rhose starting block is the 
specified blk.#, 

PSTAK 

Prints all words from the string 

addresses on the stack. The top element 
is printed to the right of previous 
elements. The stack is unchanged. 



Similar to TYPE but spools to disk 

rather than typing to the screen. Outputs 

an additional two blanks after the 
message* 



adr 



T; 



cond 



Tests the current string for a match 
to the FORTH word semicolon. This is used 
to exit DOC. 



adr cnt FWRD 



THEN 



Prints one word via MTYP, 
PSTAK. 

REPEAT 



Used by 



Functionally identical to the re- 
defined THEN. 



Re-defined in the stack vocabulary, 
this cleans up the IFST. If the depth of 
Che stack has changed from before the 
ELSE, it issues a warning and calls SKBD 
to allow the user to correct a stack depth 
disparrity between the IF and ELSE 
clauses. 



scr# 



SCRST 



scr# 



VARIABLE 



Resets the spool pointer and places 
the screen nuniber into the beginning of 
the output spool to be used in top of page 
headers by FDOC. 



A defining word which causes the name 
of the defined word to be put on the stack 
when that word is encountered. 



scr# 



SDOC 



Documents one whole screen by exe- 
cuting it, using the diagram definitions. 

SKBD 

This scans tiie keyboard for user 
interaction. It generates the "DSDP?" and 

"PUSH VALUE?" prompts. It is invoked 
whenever intervention is required in the 
diagramming process. 

char SPIT 

Writes character out to disk spool 



file. 



STACK 



This is the name of the vocabulary 
containing this package. 

adr cnt STYP 



1 



-. ZDHOP tWT DKOr ; — > 

aorsen IQC delnaM 
acr.en SDOC 
PDOC 

DOC ei>1143 (tnK dtitiv* for on* dttiaitUie. 
SDOC builds Atdck dlsKrui t^P *ilUr« Hraao. 
rooe nrlnts «wik ditina kulU by DOC ar SDOC. 
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DiutiMLC am 

VJlRIiBLE IKST 20 ULLO 
IFST IFfTB t 

■> 



2 of 1* B. «. CoU SID326) 

( arfMt Into aposiad iirint nis ) 
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{ PQlnur to fliirrtAi iODUt word ) 
1 la -TEXT t trus fdr dlffaranca ) 
( lln* niM«er bdiDg prlatod 1 
( ba9« bloclcl for apoolad dlagraii} 
i f^urrent 3cr««n t spoaltd > 

< dddr«sa or t-DP of IF atack > 
( aerins If ataek ) 

< and initlallsd td anpty } 



sen 



t 
2 
3 

4 

5 

T 

« 

9 
10 
It 
12 
13 
H 
15 

..... 

OK 



10. 

stack diajraa pacttan. 3 of H b. i. Coin St(l3£6) 

atlt SFOOL « loja /hod 9 him 230 ^ 

CI 1 S»0OL 4.1 UPSiTE I ( ipeel <mt oliaraot«P 

< vark spadl ni« SIhd 

{ coapvta ataek ddptit 

( spd4i word 



I lif STOOL t SPIT SFOOL I ; 

! KFTH SO I SP« . 2 / 1 . I 

: Stir SHIP DUF lOT . StItF DO 

I t SFIT LOOP 32 SPIT 32 SPIT 

t HTTP 2D0F SriF TIPS 2 SPUCSS ISP | 



( typs Md apoDl wcr^ 
t print entode<) »^fif*d 
Barry «. Cola Los «n(>lia, C« 213-390. JSSt ••••• 



PKBD DUP C( T2 > 

IF ERR " tBOBI 

ELSE COUNT HTYP THEN ; 
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10^ IXIID 



sen 



1 

2 
3 
>i 
5 
6 
7 

a 

9 

10 

11 

M 
13 
in 
15 



f 10^ 

: P$T*H CtPTU IF SP* 2 . SO f i - 
BEGIN CUP * PWND ^ - SDUP " ENth 
tKUP iJllOP THEM i 



a. A. Coif d1C35o} 
[ print all wurda on itsiiK } 



HEX 



* 3BC11 



DECIMAL ( test for nel aentcolon ) 



;C I^OUK? DUP HOT SWAP 

HET1E U SUAf ChOVE DUP ^RE V * 
BOT COUST fiOT SWAP DU? ?P CMOVE 
!1> ^ DUP HEPE DOP HOT SVAP 
CI SH*P 1- 11X01 ; 



< concatenate 2 varda ) 



SCR I to* 

{ dtacM dlA^ran pact^age S of 1>i B 

t : ?HUH DUP 1+ 15 = * 

2 BECTN 1+ DUP 16 DltilT 

3 WHILE DPOP PEPEAT C« 32 i : 
*l ; :HEAD CP 13 SPTT 10 SPIT OUP 
5 COUNT 10 HIK SliAP OVER MIIP )1 
b SNAP - hO i! SHI SPACE LOOP 
T .■ I " 1211 SPIT 12 SPIT iSP J 
9 ; dm POT CUP 1* SWAP i 
9 : MVDEL BEOIN HKB C* >B SVB I SWAP CI 

10 ROT DUP R> ; END HOT PDROP : 

11 : G.HEBE HERE PAO HERE 1. MVDEL 
\S HERE - 1- DUP 1- CUP HOT SWAP DUP 
13 IF HEBE CI ALLOT 

it ELSE 2ER0P 5CR0P THEN ; 

15 : esc PAD C« 27 = IP ." ESC " ABOBT TBEH 



A. Cole 810326) 
( teal II Input la nuab4r) 



t priKt line header) 



( Situs Cor KVCEL) 

t arc dst ien — ) 

( DOVfi a to (I tli delin) 

( atrlng Into ireoory) 



SCB 
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I 107 

( alacR diaflran: pacitaee t of \^ 
VOCABULABY STACK CONSTANT LLIMIT < 



A, Col* 6103J6) 
filled in laur) 



SKBD CR 4" DBOP? " KEY DUP EHIT t acan kpd for drop , pn'sncft) 

XOR DUP 9 < 
IF DEPTH 1 - HIN DO DBOP LOOP 
ELSE DROP THEN 

BEGTM CR PUSH VALUE? ' PAD flD 
EJPECT ESC C-HEBE 0= EMD i 



IHPD T1 e 7HUH t 

IF II e ( 

ELSE SKBD SPOOL g 5PL I ( 
T1 ^ :HEAD DROP SPL 1* SFUOL I 



handle vord not found) 
nuBbcr ) 
undu rlrt«d ) 
THEN ; 



from: Barry A. Cola Loa Anneles, CA 213-390-3651 
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1 : -TEKT C SUM I S"rfAF 

2 DO OVER I C^ OVER I * CP - SUH 

3 2DB0P SiJh e : 
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i true if 2 strlfigai differ) 
ri Loep 



13 



( test 2 yard 3 for <>) 



WTEST OVER DUP C^ 1* SWAP -TEXT 

DOC SCRST fiEPE 32 WORD DUP C* 1* kllOT ( fiocuaent I def) 
BLK ^ >B IN i >R D IN I SWAP RIK I 

BEOIB ;a iiOBD IN t >s 32 WOliD ( find eolon.yord) 

HEPE WTEST 
WHILE B> 10^4 c 

IF .» NOT FOUHt" teOKT THEN HEPEAT 
DBOP fi> Jli I STACK :: ( nou «o rro« here) 

[COMPILE! FOBTH h> IN I B> bLK I : 



rroiE; Barry A* Cole Lai Angelea, CA 213-390-3351 



111 THiAO 



in 



stack oiagran package 10 of 
IPSH i IFPTH +! IPPTfl ? 1 ; 
:SAV HEB- iPSH SP* DEPTH 1 - DUP 
DUP + HERE SMAP DW ALLOT CMOVE ; 
jfiST IfPTH # « DUP S DUP S • HOT 

DO DUP « SWA? 2 - LOOP THEN 
JKILL -2 IPPTH +1 ; 
STACK DEFINITIONS HERE ' LLIHIT 



{ 

1 I 

2 t 
3 

>i : 

5 

6 : 
7 

e 

9 — > 
10 

n 

Ji 

J5 



SCR I 11£ 

( atacrk diaEram paqkafie 11 of" 14 



A. Cole flionas) 



SWAP 
DBOP 



B. *, Cole 81011^5) 



THES DEPTH lEPIB # ^ U C* -DUP 
IF \2b - 2DL'P - 

IP CB .'■ STK 68HUP, ELSE 
THEN -" . SKBD 

ELSE 2DB0P THEN 
ELSE BBOF THEN :KILL ; 



SCB 




SCB 




ataci! dlaaram pscnage 7 of H H. A. Cole B1C3^ti) 
'FIND -FIND DU'f 3F iUHOP DUP LLIHIT > 
IF 1 ELSE 0= THtiM THEN ; 

{ stack diagrani redel ot ;) 
&tt;lfj 'PINO HtHE DUP DUP Tl I t vord to jnew and fjrioteo) 

C* 1. ULLOT ;HE»U T; ^, 
VHiILE ir CFA EXECUTE ELSE 3 MFD THEN ( execute each word and) 

?ST*CK PSIAK REPEAT ( print atach) 

LROP PSTAK CB 13 SPIT 10 SPIT :SP SPt ^ 

SCRST SPOOL I DUP 256 /KOD 
SrfAP SPIT SPIT J 



( rejet apool ptr and place) 
{ screen* In spool) 



3D0C SCRST STACK LOAD 
[COMPILE) POBTII ; 



• 109 



( docuasent T screen) 



A. Cole B10326) 
heading on top of pane ) 



i alacK diagram pacRawe B of 1' 

1 : PHOO 12 EMIT ( 

2 STACK DIACNAH - SChtbK t " 

3 ;SC 7 CB CB in ;LN I -, 

5 ; PBTDOC DUP rfaft I BLOCK P ( print diagram frora apec scr) 

6 :SC I PIIDG 10240 2 00 

7 I 1024 /MOD :HK ^ + BLOCK • Ce -DUP 
S IP OOP EMIT 10 -. 

9 IP jLH f 1 - DUP :LN I 0= 

10 IP phDlj Then THtH 

11 ELSE LEAVE THEM LOOP ; 



9 
10 

11 

12 
13 
14 
15 



ELSE DEPTH 128 + >B SPl ;BST H> IPPTh S # U CI 
IF DROP !S*» i KOHTK DEFINITIONS — > 



FDOC 230 PBTDOC 



{ print Laat aefierated diasr.ln) 



SCR 

1 
2 
3 
i| 
5 
6 



9 

to 

11 

I? 
J3 
III 
15 



***** from: 
OK 



113 

Stack diagram packai^e 



CbLD 

GURD 
0(1) 

G(S) 

G(3) 

( 11 



12 or III B. A. Cole ei03?6) 



3i WORD HERE C* U ALLOT 
IN # <BUILDS OBLD 
D0£3> ; 
) OWRD ( 

IN f! <BUll,DS OBLD 
eOES> SWAP ) 
IN « itUILDS GOLD 
DOES> ) !C !C 

IN e <bu;lds gbld 

DOES> SWAP ) :C jC :0 [ SWAP :C 
WORD ; i-HMEDIATE > 



< SWAP ;C :C ; 
( SWAP !C ; 
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FORTH CLASS 



1 

2 
3 
4 

5 
« 

7 
B 
9 

to 

1) 
12 
13 
14 
IS 



( SUCK <lla«ra<> (laollM* 13 ot 14 Ij. *. Celm II1I)425> 
STtCIt DEFIHiTlOnS 

MJP IMJr : I BOT HOT : : swip sutr ; 1 nveN oven ; 

ll> WtOP J I MOP DSOP : i . DBOf ; ; HEX HEX ; 1 KS[i 



DICIHAL DECIMAL 
tt I 1 

2f 1 DBOP i 
C> DROP : 

SPACES CJIOP 

emiiF men 

MA IN ; 



20UP ?I>llf [ : T OBOP DROP ; J C! I J 

, CHOP i ; suet ; : ( ; ; 1 ; 

? DFLOP ; ; Alrlt^T DHjP ; : bLASK [ ; 
DO t : : DUMP I ; ; Ek:t tiJiOP i i -tiUP DUP 
t:HAS£ I : J +LOOP DhOP ; ; /(.OOP OROP i 
nOU£ I QRCjP ; : L£AV£ ; 
Tltpe I i : BEOIN j : LOOP j i ^ i : CI i 
REPSAt THEN i t UHIU ir ; 
I f 



SOI 


1 

I 

3 
II 

? 

b 

7 



I Its 

( stack dlagran paehBte 14 c 
CMRD D CURD 1 

C(1) . : MINUS - ; c(3] 

0(3) * : »»D 1 I 0(3) 

0(?) r1 : I* -tt I 0<?) 

OU) : 2* 'I t 0(?) 

U( 1) NOT OKflD 
GURb here 



14 b. A. 

MUD f 

CIS) • 
: oe I 1 
I I- -I ; 



HERE h«l*4 
VARIilBLE BSOr CKPD ; 



GMID pad 
ALLOT NOP 



le ai04J5) 
CURD ^ 
0(3) • 
W3) * : 
M2) *J ; 
Gt?) : 
GtfRC CDfid 
I FAD |Md 



13» / 

XOR i 



9 
10 

t1 I ;S oillT ; : — > aBVr 

K rmn mfinitioiis 

t3 

14 



SOI * 1)6 


I 
2 



5 

6 

T 

S 

9 
10 
11 
If 
13 

14 
IS 

froai 

OK 
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Date: June 22 - 26 

Where: Humbolt State University 
Areata, CA 95521 

Who! Kim Harris and Henry Laxen 

What: Intensive 5-day course on the use 
of FORTH 

Cost J $100 - $140 plus room and board 

How: Call Prof. Ron Zammit 
(707) 826-3275 



MMS-FORTH FOR STRINGY FLOPPIES 

Kalth Microsystems will make available 
to all licensed MMS-FORTH users a nwdified 
version that runs on the TRS-80 with an 
EXATRON stringy floppy. This modification 
is said to make MMS-FORTH operate as it 
would on a disk except for the speed. 
Users retain the capability to switch back 
to cassette operation with a single com- 
mand. Implementation includes the normal 
read/write block conmaods plus a number of 
new utility words. The modification is 
available on ESF wafer for $14.9 5 includ- 
ing shipping. For more information 
contact: 




Kalman Fejes 

KALTH MICROSYSTEMS 

P.O. Box 5457, Station P 

Ottawa, Ontario K2C 3J1 

Canada 
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How to form a FIG Chapter: 

1. You decide on a time and place for 
the first meeting in your area. 
(Alltw about 8 weeks for steps 2 
and 3.) 

2. Send to TIG in San Carlos, CA a 
meeting announcement on one side 
of 8-1/2 X 11 paper (one copy is 
enough) . Also send list of ZIP 
numbers that you want mailed to 
(use first three digits if it 
works for you). 

3. FIG will print, address and mail 

to members with the ZIP'S you want 
from San Carlos, CA. 

4. When you've had your first meeting 
with 5 or more attendees then FIG 
will provide you with names in 
your area. You have to tell us 
when you have 5 or more. 

Northern California 

4th Sat FIG Monthly Meeting, 1:00 
p.m., at Southland Shopping 
Ctr., Hayward, CA. FGBML 
Workshop at 10:00 a.m. 

Southern California 
Los Angeles 

4th Sat FIG Meeting, 11:00 a.m., 
Allstate Savings, 8800 So. 
Sepulveda, L.A. Call Phillip 
Wasson, (213) 649-1428. 

Orange County 

3rd Sat FIG Meeting, 12:00 noon, 
Fullerton Savings, 18020 
Brockhorst, Fountain Valley, 
CA. (714) 896-2016. 



San Diego 
Thur 



Massachusetts 

3rd Wed MMSPORTH tlaere Group, 7:00 

p.m., Cochituate, MA. Call 
Dick Miller at (617) 653-6136 
for site. 



Seattle 
Potomac 

Tulsa 
Texas 



Phoenix 

New York 

Detroit 

England 

Japan 



Canada 
Quebec 



Chuck Pliske or Dwight 
Vandenburg at (206) 542-7611. 

Paul van der Eijk at (703) 
354-7443 or Joel Shprentz at 
(703) 437-9218. 

Art Goraki at (918) 743-0113. 

Jeff Lewis at (713) 719-3320 
or John Earls at (214) 661- 
2928 or Dwayne Gustaus at 
(817) 387-6976. John Hastings 
(512) 835-1918. 



Peter Bates at (602) 996-8398. 

Tom Jung at (212) 746-4062. 

Dean Vieau at (313) 493-5105. 

FORTH Interest Group, c/o 38, 
fforsley Road, Frimley, 
Camber ley, Surrey, GU16 SAD, 
England 

Mr, Okada, Presdient, ASR 
Corp. Int'l, 3-15-8, Nishi- 
Shimbashi Manato-ku, Tokyo, 
Japan. 



Gilles Paillard at (418) 871- 
1960. 



FIG Meeting, 12:00 noon. Call 
Guy Kelly at (714) 268-3100, 
X 4784 for site. 



West Germany Wolf Gervert, Roter Hahn 
29, D-2 Hamburg 72, West 
Germany, (040) 644-3985. 



Pvib 1. is hers 



Please send notes (and reports) about 
your meetings. 
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FORTH INTEREST GROUP 
MAIL ORDER 



USA 

Membership in FORTH INTEREST GROUP and Volume III (6 issues) of $12 
FORTH Dimensions. Check one: NEW or REMEWAL 

Volyme II of FORTH DIMENSIONS (6 issues) $1 2 

Volume I of FORTH DIMENSIONS (6 issues) $1 

fig-FORTH Installation Manual, containing ttie language model of $10 

fig-FORTH, a complete glossary, memory map and installation 

instructions 

Assembly Language Source Listings of fig-FORTH for specific CPU's 
and machines. Ttie above manual is required for installation. Check 
appropriate box(es. Price [>er6acdi. 

1 802 6502 6800 6809 

8080 8086/8088 9900 APPLE II 



PACE ALPHA MICRO PDP-11 NOVA $io $14 

PROCEEDINGS 1 960 FORML (FORTH Modification Lab) Conference $25 $35 

FORTH-79 Standard, a publication of the FORTH Standards Team $10 $13 

Using FORTH, by FORTH, Inc. This is the best users manuaL $25 $32 

Kitt Peak Primer, by Stevens. An indepth self -study primer. $25 $35 

BYTE Magazine Reprints of FORTH articles, 8/80 to 4/81 $ 5 $ 8 

FIG T-shirts: Small Medium Large X-Large $10 $12 

Poster/1981 Calendar, Aug 1980 BYTE cover, 18x22" $5 $8 

FORTH Programmer's Reference Card. If ordered separately, send a FREE 
stamped, addressed envelope. 

. TOTAL $ 



FOREIGN 
AIR 

$24 

$15 
$14 
$14 



NAME MAIL STOP/APT. 



ORGANIZATION {If com pan y address) 

ADDRESS : 

CITY STATE ZIP ^COUNTRY 

VISA # ^MASTER CHARGE # 



(Minimum of$10.00on charge cards) 

Make check or money order in US Funds, payable to: PIG. All prices include postage. No purchase 
ordors 

FORTH INTEREST GROUP PO BOX 11 05 SAN CARLOS, CA 94070 
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